home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / DBVGAL17.ARJ / SRC_ASM.ARJ / L40SET.ASM < prev    next >
Assembly Source File  |  1992-01-25  |  1KB  |  55 lines
  1. ;        name    _L40set
  2. ;        void L40set(void);
  3. L40_TEXT       segment para public 'CODE'
  4.         public  _L40set
  5.         assume  cs:L40_TEXT
  6. _L40set         proc    far
  7.         push    ds
  8.  
  9.         MOV     AX,0003         ; textmode 0x03
  10.         INT     10h      
  11.  
  12.         MOV     AX,1111h        ; 8x14 char set & video parameters
  13.         MOV     BL,00   
  14.         INT     10h      
  15.  
  16.         MOV     AX,1102h        ; set 8 point font
  17.         MOV     BL,00   
  18.         INT     10h      
  19.  
  20.         mov     dx,03d4h        ; update CRTC register 9
  21.         mov     al,09h
  22.         out     dx,al
  23.         inc     dx
  24.         in      al,dx
  25.         and     al,0e0h
  26.         or      al,09h
  27.         out     dx,al
  28.  
  29.         mov     dx,03d4h        ; update CRTC register 12h
  30.         mov     al,12h
  31.         out     dx,al
  32.         inc     dx
  33.         mov     al,90h
  34.         out     dx,al
  35.  
  36.         XOR     AX,AX   
  37.         MOV     DS,AX   
  38.         MOV     AL,09   
  39.         MOV     ds:[0485h],AL           ; update BIOScrtpoints 
  40.         MOV     AL,27h
  41.         MOV     ds:[0484h],AL           ; update BIOScrtrows
  42.  
  43.         mov     ah,1
  44.         mov     ch,7
  45.         mov     cl,9
  46.         int     10h     ; set cursor size
  47.  
  48.         xor     ax,ax
  49.         pop     ds
  50.         ret
  51. _L40set         endp
  52. L40_TEXT        ends
  53.         end
  54.  
  55.